home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
filespy.zip
/
Install.Cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-25
|
1KB
|
43 lines
/* WPS-Installationsroutine für Filespy */
/* Anlegen eines Programmobjekts auf dem WPS-Desktop */
CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
CALL sysloadfuncs
'@ECHO OFF'
/* Abfrage, ob Filespy/2 wirklich installiert ist */
Path = Directory()
CALL SysFileTree Path'\Filespy.exe', Datei, 'F'
IF Datei.0 < 1 THEN
DO
SAY 'Filespy/2 ist im Verzeichnis <'Path'> noch nicht installiert.'
SAY 'Filespy/2 is not installed in directory <'Path'>.'
EXIT
END
Klasse='WPProgram'
Titel='FileSpy/2'
Ort='<WP_DESKTOP>'
Param='PROGTYPE=WINDOWABLEVIO;NOAUTOCLOSE=YES;EXENAME='Path'\FileSpy.EXE;ICONFILE='Path'\Fs2_b.ICO;'
CALL CreateObject
SAY
SAY 'Fertig! Das Programmsymbol ist jetzt angelegt.'
SAY 'Finished! The icon is now availble on the desktop.'
EXIT
/* Unterprogramm: Objekt anlegen */
CreateObject:
SAY 'Es wird das "Objekt" 'Titel' angelegt...'
SAY 'Creating "object" 'Titel' ...'
result = SysCreateObject(Klasse, Titel, Ort, Param)
if result = 1 THEN
SAY '... ok.'
ELSE do
SAY 'Fehler! / error!'
exit
END
RETURN